Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00262_Video Sequence Class.ls

Text File | 1997-07-10 | 611 b | 33 lines

property memberNum, videoDisplay, autoStarted

on new me, parameterList
  set titleObj to GetGlobal(#gTitleObject)
  set menuObj to the currMenu of titleObj
  set videoDisplay to the videoDisplay of menuObj
  set memberID to getProp(parameterList, #memberNum)
  set memberNum to the number of member memberID
  if memberNum <= 0 then
  end if
  set autoStarted to 0
  return me
end

on TurnOn me
  init(videoDisplay, memberNum)
end

on TurnOff me
end

on CheckIdle me
  if not autoStarted then
    TurnOn(me)
    set autoStarted to 1
  end if
end

on dispose me
  set memberNum to 0
  set videoDisplay to 0
end